extern int dspr_(char *uplo, integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *ap, ftnlen uplo_len);
/*:ref: lsame_ 12 4 13 13 124 124 */
/*:ref: xerbla_ 14 3 13 4 124 */
